home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / tool_inc.zip / FLAGS.INT < prev    next >
Text File  |  1989-06-02  |  324b  |  8 lines
  1. function getflag(flag: byte; bitval: byte): boolean;
  2.    {return true/false for specified is set}
  3. procedure setflag(var flag: byte; bitval: byte; value: boolean);
  4.    {set the specified bit in a flagbyte}
  5. function toggleflag(var flag: byte; bitval: byte): boolean;
  6.    {toggle the specified bit and return new setting}
  7.  
  8.